home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / Q8.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  34 lines
  1. 10  HOME : TEXT 
  2. 20  PRINT 
  3. 30  PRINT "Which of the individuals below will not produce a reflection in a mirror?"
  4. 40  PRINT : PRINT 
  5. 50  PRINT "a. Dracula"
  6. 60  PRINT 
  7. 70  PRINT "b. Frankenstein"
  8. 80  PRINT 
  9. 90  PRINT "c. Ronald Reagan"
  10. 100  PRINT 
  11. 110  PRINT "d. Ronald McDonald"
  12. 120  PRINT : PRINT : PRINT 
  13. 130  GET KY$
  14. 140  HOME 
  15. 150  PRINT : PRINT 
  16. 160  IF KY$ = "a"  OR KY$ = "A"  THEN  GOTO 300
  17. 170  IF KY$ = "b"  OR KY$ = "B"  OR KY$ = "c"  OR KY$ = "C"  THEN  GOTO 320
  18. 180  IF KY$ = "d"  OR KY$ = "D"  THEN  GOTO 350
  19. 185  IF KY$ < >"a"  OR KY$ < >"A"  OR KY$ < >"b"  OR KY$ < >"B"  OR KY$ < >"c"  OR KY$ < >"C"  OR KY$ < >"d"  OR KY$ < >"D"  THEN  GOTO 370
  20. 190  PRINT : PRINT : PRINT : PRINT 
  21. 200  FOR I = 0 TO 1500
  22. 202 J = 1
  23. 204  NEXT I
  24. 210  GOTO 10
  25. 250  END 
  26. 300  PRINT "Right!!  Just a couple more questions."
  27. 310  PRINT : PRINT : PRINT : PRINT 
  28. 312  PRINT  CHR$(4);"run q9"
  29. 320  PRINT "Close, but not a winner yet!!  Try once more."
  30. 330  GOTO 190
  31. 350  PRINT "Be serious, do you really think that's  the correct answer?"
  32. 360  GOTO 190
  33. 370  PRINT "Just enter <a>, <b>, <c>, or <d>."
  34. 380  GOTO 190